Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Реалізація найпростіших алгоритмів у ЕОМ

Інформація про навчальний заклад

ВУЗ:
Тернопільський національний економічний університет
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано

Інформація про роботу

Рік:
2010
Тип роботи:
Лабораторна робота
Предмет:
Теорiя алгоритмiв i математичнi основи представленння знань

Частина тексту файла

Міністерство освіти і науки України Тернопільський національний технічний університет імені Івана Пулюя Кафедра комп’ютерних наук ЛАБОРАТОРНА РОБОТА з дисципліни “Теорія алгоритмів” Тема роботи: Реалізація найпростіших алгоритмів у ЕОМ Тернопіль – 2010 Лабораторна робота №1 Тема роботи: Реалізація найпростіших алгоритмів у ЕОМ Мета роботи: Метою роботи є вивчення основних структур організації даних у ЕОМ та придбання навичок їх створення та обробки. Завдання до лабораторної роботи. Згенерувати масив випадкових чисел. Виконати сортування масиву вказаним методом. Обчислити задану характеристику масиву. Вивести вхідні дані і результати роботи на екран. Оформити звіт по лабораторній роботі. 7 Масив з 30 цілих чисел в інтервалі (-25..25) Впорядкувати масив в порядку зростання (метод сортування бульбашка) Знайти кількість чисел більших п`яти   Блок-схема Текст програми unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Memo2: TMemo; Panel1: TPanel; Button4: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,k,kil:integer; L:array [1..30] of integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin form1.Memo1.Visible:=true; form1.Height:=545; form1.Width:=375; form1.Memo1.Lines.text:='ÇÃÅÍÅÐÎÂÀÍÈÉ ÌÀÑÈÂ:'; Randomize; for i:=1 to 30 do begin L[i]:=random(50)-25; form1.Memo1.Lines.Add(inttostr(i)+': ' +inttostr(L[i])); end; end; procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button3Click(Sender: TObject); var p:integer; label nazad; begin form1.Memo2.Visible:=true; form1.Height:=545; form1.Width:=555; begin nazad: for i:=2 to 30 do begin if L[i]<L[i-1] then begin p:=L[i-1]; L[i-1]:=L[i]; L[i]:=p; goto nazad; end; end; end; form1.Memo2.Lines.Text:='²ÄÑÎÐÒÎÂÀÍÈÉ ÌÀÑÈÂ: '; for i:=1 to 30 do begin form1.Memo2.Lines.Add(inttostr(i)+': ' +inttostr(L[i])) end; end; procedure TForm1.Button4Click(Sender: TObject); begin kil:=0; for i:=1 to 30 do begin if L[i]>5 then kil:=kil+1; end; form1.Edit1.Text:=inttostr(kil); MessageDlg('ʳëüê³ñòü ÷èñåë á³ëüøå 5 = '+ form1.Edit1.Text, mtInformation, [mbOK], 0); end; procedure TForm1.FormActivate(Sender: TObject); begin form1.Memo1.Visible:=false; form1.Memo2.Visible:=false; form1.Height:=120; form1.Width:=170; end; end. Результати роботи    
Антиботан аватар за замовчуванням

07.02.2013 10:02

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини